program test
	implicit none
	double precision:: a = 3d0
	return
	write(*,*) a
end program test
